home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / pascal / vol.com / VOL.DOC < prev    next >
Encoding:
Text File  |  1979-11-30  |  4.4 KB  |  103 lines
  1. Program ..............:  VOL.PAS
  2. Version ..............:  1.01
  3. Implementation .......:  Turbo Pascal v4.x, v5.x
  4. Author ...............:  Vernon E. Davis
  5.                       :  17 South Centre Street
  6.                       :  Merchantville, NJ 08109
  7.                       :  CompuServe [71330,2705]
  8. References ...........:  MS-DOS Encyclopedia (Microsoft Press)
  9. Purpose ..............:  To allow the manipulation of
  10.                       :  MS-DOS Disk Volume Labels.
  11. Type Declarations ....:  Two User Types Defined ...
  12.                       :  TYPE  Drive = Byte;
  13.                       :    The value of Drive corresponds to disk location.
  14.                       :    ( 1 = A:   2 = B:   3 = C:   4 = D:  etc. )
  15.                       :  TYPE  VolumeName  = String[11];
  16.                       :    Spaces allowed. Functions do not check for
  17.                       :    invalid characters other than period ( . ).
  18.                       :    Functions do convert all input to uppercase.
  19. Function Declarations :  Four Functions Available ...
  20.  
  21.    Function ADDVOL(Drive; VolumeName) : Boolean;
  22.       This function allows the addition of a New Volume Label on
  23.       a disk that does not have one.
  24.       Returns:
  25.          FALSE if
  26.            1. Drive is less than 1 ( A: ) or greater than 26 ( Z: ).
  27.            2. Drive is an invalid specification.
  28.            3. Volume Label already exists.
  29.            4. Error in adding New Volume Label.
  30.          TRUE if
  31.            1. New Volume Label has been added.
  32.  
  33.    Function CHGVOL(Drive; VolumeName) : Boolean;
  34.       This function changes the current Volume Label to that of the
  35.       New Volume Label.
  36.       Returns:
  37.          FALSE if
  38.            1. Drive is less than 1 ( A: ) or greater than 26 ( Z: ).
  39.            2. Drive is an invalid specification.
  40.            3. No Volume Label exists.
  41.            4. Error in changing Volume Label.
  42.          TRUE if
  43.            1. Volume Label has been changed.
  44.  
  45.    Function DELVOL(Drive) : Boolean;
  46.       This function allows the deletion of a Volume Label.
  47.       Returns:
  48.          FALSE if
  49.            1. Drive is less than 1 ( A: ) or greater than 26 ( Z: ).
  50.            2. Drive is an invalid specification.
  51.            3. No Volume Label exists.
  52.            4. Error in deleting Volume Label.
  53.          TRUE if
  54.            1. Volume Label has been deleted.
  55.  
  56.    Function GETVOL(Drive) : VolumeName;
  57.       This function returns the Volume Label string.
  58.       Returns:
  59.          NULL if
  60.            1. Drive is less than 1 ( A: ) or greater than 26 ( Z: ).
  61.            2. Drive is an invalid specification.
  62.            3. No Volume Label exists.
  63.            4. Error in reading Volume Label.
  64.          !NULL if
  65.            1. Volume Label has been read.
  66.  
  67. See the accompanying program, VOLTEST.PAS, for actual code.
  68.  
  69.          ----------------end-of-author's-documentation---------------
  70.  
  71.                         Software Library Information:
  72.  
  73.                    This disk copy provided as a service of
  74.  
  75.                         The Public (Software) Library
  76.  
  77.          We are not the authors of this program, nor are we associated
  78.          with the author in any way other than as a distributor of the
  79.          program in accordance with the author's terms of distribution.
  80.  
  81.          Please direct shareware payments and specific questions about
  82.          this program to the author of the program, whose name appears
  83.          elsewhere in  this documentation. If you have trouble getting
  84.          in touch with the author,  we will do whatever we can to help
  85.          you with your questions. All programs have been tested and do
  86.          run.  To report problems,  please use the form that is in the
  87.          file PROBLEM.DOC on many of our disks or in other written for-
  88.          mat with screen printouts, if possible.  The P(s)L cannot de-
  89.          bug programs over the telephone.
  90.  
  91.          Disks in the P(s)L are updated monthly, so if you did not get
  92.          this disk  directly from the P(s)L,  you should be aware that
  93.          the files in this set may no  longer be the current versions.
  94.  
  95.          For a copy of the latest monthly software library newsletter
  96.          and a list of the 1,000+ disks in the library, call or write
  97.  
  98.                         The Public (Software) Library
  99.                               P.O.Box 35705
  100.                            Houston, TX 77235-5705
  101.                                (713) 665-7017
  102.  
  103.